home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v7n10.arc
/
INFO.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-04-30
|
2KB
|
28 lines
100 ' Program to create INFO.COM -- by Hal Shearer
110 CLS:PRINT "Checking DATA; please wait..."
120 FOR B=1 TO 18:FOR C=1 TO 16:READ A$:T=T+VAL("&H"+A$):NEXT
130 READ S:IF S<>T THEN PRINT "ERROR IN LINE";B*10+180:END
140 T=0:NEXT:RESTORE
150 OPEN "INFO.COM" AS #1 LEN=1:FIELD #1,1 AS D$
160 FOR B=1 TO 18:FOR C=1 TO 16:READ A$
170 LSET D$=CHR$(VAL("&H"+A$)):PUT #1:NEXT:READ DUMMY$:NEXT
180 CLOSE:PRINT "INFO.COM CREATED"
190 DATA EB,7C,90,00,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,1055
200 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,736
210 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,52,65,73,70,962
220 DATA 6F,6E,73,65,20,6E,65,65,64,65,64,3A,20,50,52,45,1403
230 DATA 53,53,20,41,4E,59,20,4B,45,59,20,54,4F,20,41,44,1055
240 DATA 56,41,4E,43,45,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,871
250 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,736
260 DATA 2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,2E,24,56,57,807
270 DATA BE,80,00,FC,E8,60,00,80,3C,0D,74,14,B9,28,00,8D,1601
280 DATA 3E,2C,01,AC,3C,0D,74,03,AA,E2,F8,41,B0,2E,F3,AA,1815
290 DATA 5F,5E,B4,01,B9,00,0F,CD,10,B4,02,B6,18,B2,13,CD,1581
300 DATA 10,C6,06,03,01,FF,80,06,03,01,01,8A,1E,03,01,B7,973
310 DATA 00,B9,27,00,E8,27,00,8A,87,04,01,B4,0E,CD,10,43,1255
320 DATA E8,26,00,B4,01,CD,16,74,03,EB,26,90,E2,E9,80,BF,1992
330 DATA 04,01,24,74,CC,EB,CF,46,80,3C,20,74,FA,C3,53,B4,1917
340 DATA 02,B6,18,B2,13,CD,10,5B,C3,51,B9,58,02,E2,FE,59,1837
350 DATA C3,E8,EA,FF,B9,4F,00,B0,20,B4,0E,CD,10,E2,F8,B4,2457
360 DATA 01,B5,0B,B1,0C,CD,10,CD,20,00,00,00,00,00,00,00,840